home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1995-03-11 | 1.7 KB | 67 lines |
- ' **************************************************************
- '
- ' UniWave, UniWave.amos, and additional graphic files
- ' are Copyright 1995 Seumas McNally, all rights reserved.
- '
- ' You Are LAME (and breaking Copyright law) if you use this code
- ' in your own programs without permission from the author.
- '
- ' **************************************************************
- '
- Randomize Timer
- '
- Screen Open 0,320,200,16,Lowres
- Curs Off : Flash Off : Cls 0
- Double Buffer : Autoback 0 : Update Off : Hide
- '
- Load Iff "FTOpenPic1_1.iff",1 : Screen Hide 1
- Load Iff "FTOpenPic3_1.iff",2 : Screen Hide 2
- Get Block 1,0,78,320,82,1
- '
- A$="CoDe aNd GfX bY LoNgBoW oF D.U.P.!"
- Cls 0 : Locate 0,0 : Pen 5 : Paper 0 : Print " ";
- For A=1 To Len(A$)
- Pen 15-A mod 11
- Print Mid$(A$,A,1);
- Next A
- Get Block 2,0,0,320,8,1
- '
- Degree
- Dim SN(750)
- For A=0 To 750 : SN(A)=(Sin(A)*4) : Next A
- '
- '
- Screen 1 : Ink 0
- Bar 0,0 To 319,2
- Bar 0,0 To 4,199
- Bar 0,197 To 319,199
- Bar 316,0 To 319,199
- '
- Screen 0
- Get Palette 1
- DUPX=0
- Shift Up 3,5,15,1
- T=Timer
- While Mouse Key=0 and(Inkey$="")
- Add O,20,1 To 360
- Add OO,5,1 To 360
- OOO=OO+O : If OOO>360 : OOO=OOO-360 : End If
- For A=0 To 304 Step 16
- Screen Copy 1,A,0,A+16,200 To Logic(0),A,SN(A+O)
- Next
- For A=0 To 190 Step 10
- Screen Copy Logic(0),-10,A,330,A+10 To Logic(0),-10+SN(A+OOO),A
- Next
- If Timer-T>300 : If DUPX<90 : Add DUPX,1 : Else DUPX=90 : End If : End If
- Add D,10,1 To 360
- Add DD,15,1 To 360
- Z=(Sin(D)*30)
- 'ZZ=(Sin(D)*10)
- If DD>270 or DD<90 : Put Block 1,-320+(Sin(DUPX)*320),60+Z : End If
- If Timer-T>1000
- Put Block 2,-(Sin(DD)*10),100+Z-26-(Sin(DD)*22)
- End If
- If DD>=90 and DD<=270 : Put Block 1,-320+(Sin(DUPX)*320),60+Z : End If
- Screen Swap 0
- Wait Vbl
- Wend